home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / l2100.zip / GENRAN.REF < prev    next >
Text File  |  1997-06-20  |  11KB  |  526 lines

  1. ;general random stuff that is usually called from any major tavel route
  2. ;where roads are
  3.  
  4.  
  5. @#GENRAN
  6. @do `p20 random 8 1
  7.  
  8. @if `p20 is 1 then do
  9.  @begin
  10.  @run event1
  11.  @end
  12. @if `p20 is 2 then do
  13.   @begin
  14.   @run event2
  15.   @end
  16. @if `p20 is 3 then do
  17.   @begin
  18.   @run hunters in bounty.ref
  19.   @end
  20. @if `p20 is 4 then do
  21.   @begin
  22.   @run event4
  23.   @end
  24. @if `p20 is 5 then do
  25.   @begin
  26.   @run event5
  27.   @end
  28. @if `p20 is 6 then do
  29.   @begin
  30.   @run event6
  31.   @end
  32. @if `p20 is 7 then do
  33.   @begin
  34.   @run event7
  35.   @end
  36. @if `p20 is 8 then do
  37.   @begin
  38.   @run event6
  39.   ; yes, we want the run in with the Dragon Tooth guards to happen A LOT
  40.   @end
  41.  
  42. @#EVENT7
  43. ;The travelers who speak of the dragon
  44. @do moveback
  45. @do write
  46. `r1
  47. @clearblock 21 21
  48. @do move 3 21
  49. @do write
  50. `r0`2Sounds like traveling folk.  Stop? [`0Y`2/`0N`2] :`x
  51. @do readspecial `s01 YN
  52. @if `s01 is Y then do
  53.   @begin
  54.   @show
  55. `r0`c  `r1  `%Group of Travelers  `r0
  56.  
  57.   `0"Hello!"  `2says the leader.  His groups seems happy and well travelled.
  58.   `$"Good day sir, how goes the travels?"  `2you ask.
  59.   `2You sit down and talk with the group a while.  They tell you how they're
  60.   on their way to FlagCity and then on to PortTown.  They've heard many a
  61.   rumor and story on their quests.  He also speaks of the dragon ...`k
  62.  
  63.   `0"There are those who believe ... that the `bRed Dragon`0 is still alive.
  64.   With the existance of the Dragon Tooth clan that possibility seems more
  65.   and more real.  If the Dragon is still alive, terror could very well
  66.   come to this land.  I suspect only the Dragon Tooth ... and maybe the
  67.   Koshi know the truth."  `%(YOU ARE FULLY RESTED!)
  68. `\`k  
  69. @do `p02 is `p03
  70. @drawmap
  71. @update
  72.  @do saybar
  73. `0"Have good travels!"
  74. @closescript
  75. @end
  76.  
  77.  @do saybar
  78. You hide in the bushes while they pass.
  79.  
  80. @#EVENT6
  81. ;Evil with the Dragon Tooth Clan
  82. @do moveback
  83. @do write
  84. `r1
  85. @clearblock 21 21
  86. @do move 3 21
  87. @do write
  88. `r0`2You hear a lot of footsteps coming.  Investigate? [`0Y`2/`0N`2] :`x
  89. @do readspecial `s01 YN
  90. @if `s01 is N then do
  91.   @begin
  92.   @do saybar
  93. You wait until the sounds are gone before advancing.
  94.   @closescript
  95.   @end
  96.  
  97.  
  98. @if `s01 is Y then do
  99.   @begin
  100.   @show
  101. `r0`c  `r1  `%Dragon Tooth Battalion  `r0
  102.  
  103.   `0"Halt lowly citizen!"  `2the lieutenant screams.  His men seem very
  104.   loyal and very shady.
  105.   `0"What's you business here?"  `2he asks.
  106.   
  107. @do write
  108. `x`x
  109. @do `v01 is 1
  110. @choice
  111. Listen to what they have to say
  112. -`t18 0 Insult them
  113. -`t18 0 <`p07 -9 Inquire about recruitment
  114. +`t18 0 Head to the castle
  115. Take off
  116. @if response is 1 then do
  117.   @begin
  118.   @pauseoff
  119.   @show
  120. `\`\  `0"The Dragon is still alive my friends, and only we know of the way
  121.   to stop him.  We may protect you, but for a price.  It costs us to fight
  122.   off the beast on a constant basis.  We need your money to make the towns
  123.   safe.  Give it to us or your friends will surely die!"  `2You stand not
  124.   very sure of this loser's speech.  Sounds like a classic scam.
  125.  
  126.   `$"I hate to ruin your fine speech sir, but I don't live near here."
  127.   `2you say.
  128.  
  129.   `0"The Dragon has wings, he will travel.  Soon your home may be next!"
  130.   `2he replys.
  131. `\`k
  132.   @end
  133. @if response is 2 then do
  134.   @begin
  135.   @show
  136. `\`\  `$"You guys suck, what a load of crap!!"  `2you yell.
  137.  
  138.   `0"You'll regret that s&boy."  `2says the lieutenant.
  139. `\`k
  140.   @do goto DBATTLE
  141.   @end
  142. @if response is 3 then do
  143.   @begin
  144.   @show
  145. `\`\  `$"Hey, I like being evil.  Could I join you guys and get a piece
  146.   of the action?"  `2you ask.
  147.  
  148.   `0"You are lowly, but not so lowly that you can't be trained.  Yes ...
  149.   now I think I see a little potential in you s&boy.  You could be
  150.   trained to serve us.  Come, to our castle where you may learn more about
  151.   yourself in our eyes."
  152. `\`k
  153.   @loadmap 705
  154.   @do map is 705
  155.   @do x is 27
  156.   @do y is 11
  157.   @update
  158.   @drawmap
  159.   @closescript
  160.   @end
  161. @if response is 4 then do
  162.   @begin
  163.   @show
  164. `\`\  `$"My masters, I must see the gatekeeper and ask him of my progress."
  165.   `2you say.
  166.  
  167.   `0"It shall be done ..."
  168. `\`k
  169.   @loadmap 705
  170.   @do map is 705
  171.   @do x is 27
  172.   @do y is 11
  173.   @update
  174.   @drawmap
  175.   @closescript
  176.   @end
  177. @drawmap
  178. @update
  179. @if bitcheck `t18 0 0 then do
  180.  @begin
  181.  @do saybar
  182. `0"We'll meet again!"
  183.  @end
  184.  
  185. @#DBATTLE
  186. @fight
  187. ;name
  188. Dragon Tooth Battalion
  189. ;string said when you see him
  190. They suddenly charge you, so much for protection.
  191. ;power move kill string
  192. `$"Save your own ass!!"  `2you shout.
  193. ;sex - 1 is male, 2 is female, 3 is it
  194. 3
  195. ;weapon and strength for the weapon, up to 5
  196. charges you|100
  197. surrounds and beats you|125
  198. practice with their swords on you|150
  199. attempt to trample you|97
  200. NONE|NONE
  201. ;defense
  202. 40
  203. ;gold reward
  204. 1400
  205. ;experience
  206. 210
  207. ;hit points
  208. 700
  209. ;if win: ref file|name or NONE
  210. NONE|NONE
  211. ;if lose: ref file|name or NONE
  212. GAMETXT.REF|DIE
  213. ;if runs: ref file|name or NONE
  214. NONE|NONE
  215. @drawmap
  216. @update
  217.  
  218. @#EVENT5
  219. ;Injured person
  220. @do moveback
  221. @do write
  222. `r1
  223. @clearblock 21 21
  224. @do move 3 21
  225. @do write
  226. `r0`2You hear an injured person nearby.  Investigate? [`0Y`2/`0N`2] :`x
  227. @do readspecial `s01 YN
  228.  
  229. @if `s01 is Y then do
  230.   @begin
  231.   @show
  232. `r0`c  `r1  `%Aid a fellow traveler  `r0
  233.  
  234.   `0"Please help me!" `2the injured man screams.  His leg seems to have
  235.   taken quite a blow.
  236.  
  237. @do write
  238. `x`x
  239. @do `v01 is 1
  240. @choice
  241. Help the man out
  242. Beat him and take his money
  243. Leave
  244. @if response is 1 then do
  245.   @begin
  246.   @do `p07 + 1
  247.   @show
  248. `\`\  `2You help the man, and with the first aid are able to get him on his
  249.   way to a city where he can further heal.
  250.  
  251.   `bYOUR ALIGNMENT GOES UP BY ONE!`b
  252. `\`k
  253. @drawmap
  254. @update
  255.   @closescript
  256.   @end
  257. @if response is 2 then do
  258.   @begin
  259.   @do `p07 - 2
  260.   @do `p20 random 1300 221
  261.   @do money + `p20
  262.   @show
  263. `\`\  `$"Sure I'll help you .. die!"  `2You slam him with your s&weapon, and
  264.   after he falls unconscious you raid his purse.
  265.  
  266.   `2You find `$`p20 `2gold!
  267.  
  268.   `bYOUR ALIGNMENT GOES DOWN BY TWO!`0
  269. `\`k
  270. @drawmap
  271. @update
  272.   @closescript
  273.   @end
  274.  @end
  275. @do saybar
  276. You are much too busy to help the man.
  277.  
  278. @#4run
  279. @drawmap
  280. @update
  281. @do quebar
  282. You run... she'll have to fend for herself.
  283.  
  284. @#4win
  285. @drawmap
  286. @update
  287. @do `p07 + 1
  288. @do quebar
  289. You saved her!  Alignment goes up by one.
  290.  
  291. @#event4
  292. ;if clean mode, find another event to run, this one isn't suitable...
  293. @if `v06 is 1 then goto genran
  294. @do moveback
  295. @do write
  296. `r1
  297. @clearblock 21 21
  298. @do move 3 21
  299. @do write
  300. `r0`2A woman is being raped by two men nearby.  Interrupt them? [`0Y`2/`0N`2] :`x
  301. @do readspecial `s01 YN
  302.  
  303. @if `s01 is Y then do
  304.   @begin
  305.   @show
  306. `r0`c  `r1  Violation or a right, you decide  `r0
  307.  
  308.   `0"Please help me!" `2the woman screams.  The two men are wearing
  309.   Dragon Tooth armour... they also seem to be having quite the good time.
  310.  
  311. @do write
  312. `x`x
  313. @do `v01 is 1
  314. @choice
  315. Help the woman and kill the men
  316. Join in the fun
  317. Leave the encounter
  318. @if responce is 2 then do
  319.   @begin
  320. @drawmap
  321. @update
  322. @do `p07 - 1
  323. @do quebar
  324. A few hours later you are finished!  Yeah!  Alignment goes down by one.
  325.   @closescript
  326.   @end
  327. @if responce is 1 then do
  328.   @begin
  329.   @fight
  330. ;name
  331. The Guards
  332. ;string said when you see him
  333. `0"Kill that s&boy!  s&he saw us" `2they yell!
  334. ;power move kill string
  335. You strike a blow for justice this day!
  336. ;sex - 1 is male, 2 is female, 3 is it
  337. 1
  338. ;weapon and strength for the weapon, up to 5
  339. sock you|45
  340. clothesline you|52
  341. laugh as one trips you for|36
  342. NONE|NONE
  343. NONE|NONE
  344. ;defense
  345. 15
  346. ;gold reward
  347. 89
  348. ;experience
  349. 54
  350. ;hit points
  351. 136
  352. ;if win: ref file|name or NONE
  353. GENRAN.REF|4WIN
  354. ;if lose: ref file|name or NONE
  355. GAMETXT.REF|DIE
  356. ;if runs: ref file|name or NONE
  357. GENRAN.REF|4RUN
  358.   @end
  359. @closescript
  360. @end
  361.  
  362. @do saybar
  363. Screw it, why be a hero?
  364.  
  365. @#event2
  366. @do moveback
  367. @do write
  368. `r1
  369. @clearblock 21 21
  370. @do move 3 21
  371. @do write
  372. `r0  `2A dark robed priest approaches.  Speak with him? [`0Y`2/`0N`2] :`x
  373. @do readspecial `s01 YN
  374.  
  375. @if `s01 is Y then do
  376.   @begin
  377.   @label ev1
  378.   @show
  379. `r0`c  `r1  A deal, perhaps?  `r0
  380.  
  381.   `0"Greetings fellow traveler.  Would you be interested in a traveling
  382.   potion for `$$500`0?" `2the priest asks.
  383.  
  384. @do write
  385. `x`x
  386. @do `v01 is 1
  387. @choice
  388. Exactly how does it work, strange dark robed priest?
  389. >&money 499 Yes, I'll take it!
  390. >&money 499 No thanks.
  391. <&money 500 I can't afford it.
  392. @if response is 1 then do
  393.   @begin
  394.   @show
  395. `r0`c  `r1  How it works  `r0
  396.  
  397.   `0"It's really very simple young s&man, first you drink it.  Then you
  398.   wait.  You will be randomly teleported to one of ten various places."
  399.  
  400.   `$"What if I don't like where I am?"
  401.  
  402. `k  `0"Then you're pretty much screwed, aren't you," `2he laughs.
  403.  
  404.   `$"Hey!  A priest isn't supposed to talk like that!" `2you accuse.
  405.  
  406. `k  `0"We're also not supposed to sell illegal drugs, what's your point?"
  407.  
  408. `k
  409.   @do goto ev1
  410.   @end
  411.  @if response is 2 then do
  412.    @begin
  413.    @show
  414. `\`\  `0"Great doing business with you," `2he smiles as he hands you a
  415.   funny looking vial.
  416. `\`k
  417.    @drawmap
  418.    @update
  419.    @do `i50 + 1
  420.    @do money - 500
  421.    @closescript
  422.    @end
  423.   
  424.  
  425.  
  426.  @if response is 3 then do
  427.    @begin
  428.    @show
  429. `\`\  `0"Maybe next time, friend," `2he smiles.
  430. `\`k
  431.    @drawmap
  432.    @update
  433.    @closescript
  434.    @end
  435.  
  436.  
  437.  @if response is 4 then do
  438.    @begin
  439.    @show
  440. `\`\  `0"Maybe next time, friend," `2he smiles.
  441. `\`k
  442.    @drawmap
  443.    @update
  444.    @closescript
  445.    @end
  446.  
  447.  
  448.   @end
  449. @do saybar
  450. You move to the side to let him pass.
  451.  
  452. @#event1
  453. @do moveback
  454. @do write
  455. `r1
  456. @clearblock 21 21
  457. @do move 3 21
  458. @do write
  459. `r0  `2A hooded figure approaches.  Speak with him? [`0Y`2/`0N`2] :`x
  460. @do readspecial `s01 YN
  461.  
  462. @if `s01 is Y then do
  463.   @begin
  464.   @busy
  465.   @do `p20 random 4 1
  466.   @if `p20 is 1 then `s10 is `+22
  467.   @if `p20 is 2 then `s10 is `+23
  468.   @if `p20 is 3 then `s10 is `+24
  469.   @if `p20 is 4 then `s10 is `+25
  470.  
  471.   @show
  472. `r0`c  `r1  Dark Trading `r0
  473.  
  474.   `0"Greetings, stranger.  I have a very magical item called a `%`s10
  475.   `0for sale.. would you like to buy it for `$$100`0?"
  476.   @do write
  477. `\`x`x
  478.   @do `v01 is 1
  479.   @choice
  480. >&money 99 Sure, I'll take it
  481. >&money 99 I don't deal with your type.
  482. <&money 100 Sorry, I can't afford that.
  483.   @if response is 1 then do
  484.     @begin
  485.   @if `p20 is 1 then `i22 + 1
  486.   @if `p20 is 2 then `i23 + 1
  487.   @if `p20 is 3 then `i24 + 1
  488.   @if `p20 is 4 then `i25 + 1
  489.     @do money - 100
  490.   @show
  491. `\`\  `0"Nice doing business with you," `2the dark trader laughs evilly as
  492.   he hands you the `%`s10`2.
  493. `\`k
  494.     @drawmap
  495.     @update
  496.     @closescript
  497.     @end
  498.  
  499.   @if response is 2 then do
  500.    @begin
  501.    @show
  502. `\`\  `0"You are making a mistake.." `2the dark trader grunts as he leaves.
  503. `\`k
  504.    @drawmap
  505.    @update
  506.    @closescript
  507.    @end
  508.  
  509.    @show
  510. `\`\  `0"Maybe next time.." `2the dark trader grunts as he leaves.
  511. `\`k
  512.    @drawmap
  513.    @update
  514.   @closescript
  515.  
  516.  @end
  517.  
  518. @do saybar
  519. You move to the side to let him pass.
  520.  
  521.  
  522.  
  523.  
  524.  
  525. @#done
  526.